home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / juicebar / 00869.ls < prev    next >
Encoding:
Text File  |  1995-04-07  |  509 b   |  21 lines
  1. on moviecheck
  2.   set xxx to 1
  3.   set runt to [:]
  4.   set ring to the labelList
  5.   set rink to []
  6.   repeat with yyy = 1 to the number of lines in ring
  7.     add(rink, line yyy of ring)
  8.   end repeat
  9.   set xxxstop to count(rink)
  10.   repeat while xxx < (xxxstop - 1)
  11.     set which to getAt(rink, xxx)
  12.     set nrex to getAt(rink, xxx + 1)
  13.     set trill to ramNeeded(marker(which), marker(nrex) - 1)
  14.     if trill > 1000000 then
  15.       addProp(runt, which, trill)
  16.     end if
  17.     set xxx to xxx + 1
  18.   end repeat
  19.   put runt
  20. end
  21.